home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / SOLID9.IRT < prev    next >
Text File  |  1991-09-16  |  1KB  |  56 lines
  1. #
  2. # Yet another simple 3D mechanical object.
  3. #
  4. #                Created by Gershon Elber,    Sep 89
  5. #
  6.  
  7. tm = time(true);
  8.  
  9. save_mat = view_mat;
  10. save_res = resolution;
  11.  
  12. resolution = 48;
  13.  
  14. b1 = box(vector(-0.3, -0.3, 0.0), 0.6, 0.6, 0.15);
  15. c1 = cylin(vector(0.0, 0.0, 0.1), vector(0.0, 0.0, 0.65), 0.14);
  16. s1 = sphere(vector(0.0, 0.0, 0.65), 0.3);
  17. obj = b1 + c1 + s1;
  18. free(b1);
  19. free(c1);
  20. free(s1);
  21. interact(list(obj), false);
  22.  
  23. b2 = box(vector(-0.1, -0.4, 0.55), 0.2, 0.8, 0.5);
  24. b3 = gbox(vector(0.0, -0.35, 0.63), vector(0.5, 0.0, 0.5),
  25.                     vector(-0.5, 0.0, 0.5),
  26.                     vector(0.0, 0.7, 0.0));
  27. boxes = b2 + b3;
  28. free(b2);
  29. free(b3);
  30. view(list(boxes), false);
  31. obj = obj - boxes;
  32. free(boxes);
  33. view(list(obj), true);
  34.  
  35. c2 = cylin(vector(0.0, 0.0, -0.1), vector(0.0, 0.0, 1.2), 0.08);
  36. c3 = cylin(vector(0.0, -0.3, 0.25), vector(0.0, 0.6, 0.0), 0.05);
  37. view(list(c2, c3), false);
  38. obj = obj - c2 - c3;
  39. free(c2);
  40. free(c3);
  41. view(list(obj), true);
  42.  
  43. final = convex(obj);
  44. free(obj);
  45.  
  46. tm = time(false);
  47. tm; # In Seconds
  48.  
  49. interact(list(final), false);
  50.  
  51. save("solid9", list(view_mat,final));
  52. free(final);
  53.  
  54. resolution = save_res;
  55. view_mat = save_mat;
  56.